PC Home 109/PC Home 109.iso/data1.cab/Program_Files/be002.dxr/00108.ls

Text File | 2001-03-02 | 1.6 KB | 66 lines

on exitFrame
  handcursor(6)
  handcursor(7)
  handcursor(8)
  elvis()
  finish1()
  finish2()
  puppetSprite(3, 1)
  puppetSprite(4, 1)
  puppetSprite(5, 1)
  go(the frame)
  if the locV of sprite 5 >= 300 then
    set the visible of sprite 5 to 0
  else
    set the visible of sprite 5 to 1
  end if
end

on finish2
  if (the visible of sprite 5 = 0) and (the locH of sprite 3 = 318) then
    puppetSound(0)
    go(the frame + 1)
  end if
end

on finish1
  if the visible of sprite 5 = 0 then
    if the locH of sprite 3 > 318 then
      repeat while the locH of sprite 3 > 318
        set the locH of sprite 3 to the locH of sprite 3 - 5
        set the locH of sprite 4 to the locH of sprite 4 - 5
        set the locH of sprite 5 to the locH of sprite 5 - 5
        updateStage()
      end repeat
    else
      if the locH of sprite 3 < 318 then
        repeat while the locH of sprite 3 < 318
          set the locH of sprite 3 to the locH of sprite 3 + 5
          set the locH of sprite 4 to the locH of sprite 4 + 5
          set the locH of sprite 5 to the locH of sprite 5 + 5
          updateStage()
        end repeat
      end if
    end if
  end if
end

on elvis
  global elvis
  if elvis = 0 then
    if the locH of sprite 5 <= 116 then
      repeat while the locV of sprite 5 < 300
        set the locV of sprite 5 to the locV of sprite 5 + 5
        updateStage()
      end repeat
    end if
  else
    if the locH of sprite 5 >= 522 then
      repeat while the locV of sprite 5 < 300
        set the locV of sprite 5 to the locV of sprite 5 + 5
        updateStage()
      end repeat
    end if
  end if
end